home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
GEOS
/
(g)g1.d64
/
wizard
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2009-01-03
|
2KB
|
77 lines
4 POKE 808,234
5 POKE 55,0:POKE 56,144:CLR
10 FOR L=828 TO 1003:READ A
20 POKE L,A:NEXT:SYS 828
22 REM ** CHINESE REMAINDER THEOREM **
25 DIM R(5)
30 POKE 53280,2:POKE 53281,10
40 PRINT"[147]":FOR I=1 TO24:PRINT"";:NEXT
45 PRINT CHR$(14);
50 PRINT"[144]";" [212][200][197] [215][201][218][193][210][196]"
60 PRINT"[151]";" WILL NOW HUMBLY DEMONSTRATE HIS"
70 PRINT" SUPERIOR INTELLECTUAL POWERS"
80 FOR I=1 TO 12
90 FOR J=1 TO 300:NEXT
100 PRINT:NEXT:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]";
110 PRINT" [200]UMAN: PLEASE THINK OF A NUMBER"
120 PRINT" BETWEEN 1 AND 60. [212]HE [215]IZARD"
130 PRINT" WILL GUESS IT."
135 FOR J=3 TO 5
140 PRINT"";" [193]FTER DIVIDING YOUR NUMBER BY";J
150 PRINT" WHAT IS THE REMAINDER";
160 INPUT X$
170 R(J)=VAL(X$)
175 IF R(J)<>INT(R(J))GOTO200
180 IF R(J)<0 GOTO 200
190 IF R(J)<J GOTO 220
200 PRINT"[144] [196]ON'T TRY TO CHEATE! [212]HAT'S NOT"
210 PRINT" THE REMAINDER. [212]RY AGAIN.";:GOTO 160
220 NEXT
230 N1=40*R(3)+45*R(4)+36*R(5)
240 IF N1<61 GOTO 260
250 N1=N1-60:GOTO 240
260 PRINT"[151] [212]HE [215]IZARD SAYS YOUR NUMBER"
270 PRINT" IS";N1;". [201]S THE [215]IZARD RIGHT?"
280 PRINT" [208]RESS [217] OR [206]"
290 GET X$:IF X$<>"Y" GOTO 310
295 PRINT"[144][147] [217]OUR APPLAUSE IS ACCEPTED"
300 GOSUB 2000:GOTO 500
310 IF X$<>"N" GOTO 290
320 PRINT"[144][147] [217][207][213] [195][200][197][193][212][197][196]!"
330 GOSUB 2500
500 PRINT"[151] [215]ANT TO PLAY AGAIN?"
510 PRINT" [208]RESS [217] OR [206]"
520 GET X$:IF X$="Y" GOTO 40
530 IF X$<>"N" GOTO 520
900 SYS 52298:REM RETURN TO GEOS
1000 DATA 76,175,3,56,173,54,3,233,64,141,54,3,141,0,212,141
1001 DATA 52,3,173,55,3,233,0,141,55,3,141,1,212,141,53,3,201
1002 DATA 15,240,53,78,53,3,110,52,3,24,173,52,3,109,54,3,141
1003 DATA 7,212,173,53,3,109,55,3,141,8,212,78,53,3,110,52
1004 DATA 3,24,173,52,3,109,54,3,141,14,212,173,53,3,109,55
1005 DATA 3,141,15,212,76,49,234,120,169,49,141,20,3,169,234
1006 DATA 141,21,3,88,169,32,141,4,212,141,11,212,141,18,212
1007 DATA 76,49,234,162,0,189,211,3,157,0,212,232,224,25,208
1008 DATA 245,120,169,63,141,20,3,169,3,141,21,3,88,169,0,141
1009 DATA 54,3,169,170,141,55,3,96,0,170,0,0,33,0,240,0,170
1010 DATA 0,0,33,0,240,0,170,0,0,33,0,240,0,0,0,15
2000 FOR L=54272 TO 54295:POKE L,0:NEXT:POKE 54296,15
2020 AD=15:SR=190
2030 POKE 54284,AD:POKE 54291,AD:POKE 54285,SR:POKE 54292,SR
2040 POKE 54283,21:POKE 54290,23
2050 FOR F1=200 TO 1 STEP -10:POKE 54273,F1
2060 FOR F2=200 TO 1 STEP -50:FOR F3=1 TO 4:POKE 54280,F2:POKE 54287,F3:NEXT
2070 NEXT:NEXT:FOR Q=15 TO 0 STEP -.1:POKE 54296,Q:NEXT
2080 FOR L=54272 TO 54295:POKE L,O:NEXT
2090 RETURN
2500 S=54272
2520 FOR L=54272 TO 54295:POKE L,0:NEXT:POKE 54296,15
2530 POKE S+14,10:POKE S+18,16:POKE S+3,1:POKE S+24,143:POKE S+6,240
2535 POKE S+4,65:FR=7000
2540 FOR T=1 TO 150
2545 FQ=FR+PEEK(S+27)*3.5
2550 HF=INT(FQ/256):LF=FQ-HF*256
2560 POKE S,LF:POKE S+1,HF
2565 NEXT:POKE S+24,0
2570 RETURN